0 PRINT"[147]":POKE53280,4:POKE53281,1:POKE646,11
1 REM SOUND EFFECTS
2 REM HELICOPTER BLADES
3 REM HUMMING SOUND IN VOICE 0 SUGGESTS YOU ARE IN HELICOPTER
4 REM TO HEAR MORE DISTANT CHOPPER, REMOVE ":POKE GT(0),17" FROM LINE 40
10 GOSUB 900:GOTO 100
20 FOR I=1 TO 2:POKE AD(I),48:POKE SR(I),16:NEXT:POKE FH(1),20:POKE FH(2),40
25 POKE AD(0),34:POKE SR(0),49:POKE FH(0),10
30 POKE VL,15:PRINT "PRESS SHIFT TO STOP SOUND"
40 POKE GT(1),129:POKE GT(2),129:POKE GT(0),17
50 FOR I=10 TO 220 STEP 70:POKE FH(1),I:POKE FH(2),I:NEXT
60 POKE GT(1),0:POKE GT(2),0:POKE GT(0),0:IF PEEK(653)=0 THEN 40
70 IF PEEK(653)<>0 THEN 70
90 RETURN
99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PRESSED
100 PRINT "PRESS SHIFT TO HEAR SOUND"
110 IF PEEK(653)=0 THEN 110
120 GOSUB 20:GOTO 100
898 REM ROUTINE TO SET UP VARIABLES
899 REM SET UP SOUND CONTROL ADDRESSES
900 FL(0)=54272:FH(0)=54273:GT(0)=54276:AD(0)=54277:SR(0)=54278
905 FOR I=1 TO 2:X=I*7:FL(I)=FL(0)+X:FH(I)=FH(0)+X:GT(I)=GT(0)+X:AD(I)=AD(0)+X
906 SR(I)=SR(0)+X:NEXT
909 REM SET VOLUME ADDRESS
910 VL=54296
990 RETURN